home *** CD-ROM | disk | FTP | other *** search
/ Merciful 4 / Merciful - Disc 4.iso / rexx / adpro / loaders2 / _loadppaint
Text File  |  1995-09-18  |  1KB  |  71 lines
  1. /*
  2. ** _LoadPPaint
  3. **
  4. ** $VER: _LoadPPaint 1.0 (1995-09-16)
  5. **
  6. ** This program can be run as an ADPro loader to load an image
  7. ** from Personal Paint's current environment into ADPro
  8. **
  9. ** This script requires ADPro v. 2.5.0 (or higher)
  10. **
  11. ** Copyright © 1995 Cloanto Italia srl - All Rights Reserved
  12. **
  13. */
  14.  
  15. PPPORT = 'PPAINT'
  16. ADPORT = 'ADPro'
  17.  
  18. IF ~SHOW('P', PPPORT) THEN DO
  19.     IF EXISTS('PPaint:PPaint') THEN DO
  20.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  21.         DO 30 WHILE ~SHOW('P',PPPORT)
  22.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  23.         END
  24.     END
  25.     ELSE DO
  26.         ADDRESS VALUE ADPORT
  27.         ADPRO_TO_FRONT
  28.         OKAY1 "Personal Paint could not be loaded."
  29.         EXIT 10
  30.     END
  31. END
  32.  
  33. IF ~SHOW('P', PPPORT) THEN DO
  34.     ADDRESS VALUE ADPORT
  35.     OKAY1 'Personal Paint Rexx port could not be opened.'
  36.     EXIT 10
  37. END
  38.  
  39. tmpfname = 'T:pprx_temp.'PRAGMA('ID')
  40. tmpdefs  = 'T:adpro_defs.'PRAGMA('ID')
  41.  
  42. OPTIONS RESULTS
  43. ADDRESS VALUE ADPORT
  44.  
  45. SAVE_DEFAULTS tmpdefs
  46.  
  47. ADDRESS VALUE PPPORT
  48. SaveImage '"'tmpfname'" FORCE QUIET FORMAT ILBM'
  49. IF RC ~= 0 THEN DO
  50.     ADDRESS VALUE ADPORT
  51.     ADPRO_TO_FRONT
  52.     OKAY1 "PPaint failed to save the image."
  53. END
  54. ELSE DO
  55.     ADDRESS VALUE ADPORT
  56.     LOADER "UNIVERSAL" tmpfname
  57.     IF RC ~= 0 THEN DO
  58.         ADPRO_TO_FRONT
  59.         OKAY1 "ADPro failed to load the image."
  60.     END
  61.     ADDRESS COMMAND 'Delete >NIL: 'tmpfname
  62. END
  63.  
  64. ADDRESS VALUE ADPORT
  65. LOAD_DEFAULTS tmpdefs
  66. IF (RC ~= 0) THEN DO
  67.     ADPRO_TO_FRONT
  68.     OKAY1 "Error restoring settings."
  69. END
  70. ADDRESS COMMAND 'Delete >NIL: 'tmpdefs
  71.